home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2006 October / wn148cd2.iso / Windows / Travailler / QuickZip / quickzip_460013.exe / {app} / Scripts / File / Add to Zip(floppy).akp next >
Text File  |  2003-01-05  |  425b  |  16 lines

  1. var ParamList : TStrings;
  2.     i : integer;
  3.     k,zipfilename : string;
  4. begin
  5. ParamList := Param;
  6. k := temppath+'Floppy\';
  7. MakeDir(k);
  8. DelFile(k+'floppy.zip');
  9. open(k+'floppy.zip');
  10. for i := 0 to ParamList.count -1 do
  11.   add(Paramlist.strings[i]);
  12. DoAdd;
  13. Close;
  14. zipfilename := AskFilenameDialog('a:\'+ExtractFilename(ParamList.strings[0]) + '.zip','Zip Archive|*.zip');
  15. MoveFile(k+'floppy.zip',zipfilename);
  16. end.